home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson5 / Lesson5.dcr / 00011_Invoice PST positioning.ls < prev    next >
Encoding:
Text File  |  2001-02-01  |  576 b   |  21 lines
  1. property spriteNum, pLocX, pLocY
  2. global immutableCustomers, pgProvinceCode
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pLocX, [#default: 0, #format: #number, #comment: "X Pos:"])
  7.   addProp(description, #pLocY, [#default: 0, #format: #number, #comment: "Y Pos:"])
  8.   return description
  9. end
  10.  
  11. on beginSprite
  12.   case pgProvinceCode of
  13.     "BC", "SK", "MN", "ON", "QC", "PE":
  14.       sprite(spriteNum).locH = pLocX
  15.       sprite(spriteNum).locV = pLocY
  16.     otherwise:
  17.       sprite(spriteNum).locH = pLocX
  18.       sprite(spriteNum).locV = 700
  19.   end case
  20. end
  21.